home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / spazio / mi109.dir / 00052_Script_52 < prev    next >
Text File  |  1983-01-30  |  677b  |  34 lines
  1. on exitFrame
  2.   global a_blocca
  3.   if a_blocca = false then
  4.     att_hilitec 143,9,4
  5.     curap 4
  6.     curap 5
  7.     curap 8
  8.     curap 9
  9.     curap 10
  10.     curap 11
  11.   end if
  12.   at_hil 277,6,41
  13.   go to the frame
  14. end
  15. on mouseup
  16.   --if the mouseH > 72  and the mouseH <562 and the mouseV >0 and the mouseV < 480 then
  17.   global a_blocca, a_scrolla, rsc
  18.   set rsc = 1
  19.   set a_blocca =false
  20.   set a_scrolla = false
  21.   curap 4
  22.   curap 5
  23.   curap 8
  24.   curap 9
  25.   curap 10
  26.   curap 11
  27.   set the visible of sprite 20  to false
  28.   set the visible of sprite 21  to false
  29.   set the visible of sprite 22  to false
  30.   set the visible of sprite 23  to false
  31.   
  32.   --end if
  33.   
  34. end